BEGIN "TEST1" REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE; REQUIRE "GEOMED.HDR" SOURCE_FILE; INTEGER B1; B1 ← GEOMED; WHILE TRUE DO BEGIN ROTATE(B1,π/40,π/30,π/20);GEODPY; END; END;